home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / business / db2.9 / examples / arexxdemos / firstupper.db < prev    next >
Text File  |  1994-09-02  |  359b  |  12 lines
  1. /* Rexxprogram for db that converts the first character of every word in the
  2.    current stringgadget to UPPER
  3.    Written by Richard Ludwig */
  4. options results;GETFIELD;ret=''
  5.  
  6. if DATATYPE(result)='CHAR' & result~='' then do
  7.     do t=1 to WORDS(result)
  8.         ret=ret||UPPER(LEFT(WORD(result,t),1))SUBSTR(WORD(result,t),2)' '
  9.     end
  10.     PUTFIELD LEFT(ret,length(ret)-1)
  11. END
  12.